home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / C64 / T-TPUG Old Monthly Disks / (c)t8.d64 / reporter.c (.txt) < prev    next >
Commodore BASIC  |  2007-02-04  |  3KB  |  94 lines
  1. 10 POKE53281,12:POKE53280,12:PRINTCHR$(8)CHR$(5)CHR$(14):Z$=CHR$(0):OPEN15,8,15
  2. 20 PRINT"[147]      [193][212][212][197][206][196][193][206][195][197]/[200][207][205][197][215][207][210][203][146] [210][197][208][207][210][212][197][210]
  3. 30 [153]"            (null)OM (null)ICHARDSON
  4. 40 PRINT"             [196]ANA [195]OLLEGE
  5. 50 [153]"             (null)OVEMBER 1983
  6. 60 FORI=1TO1000:NEXT
  7. 70 BYTE=0:BIT=0:TE=0:SF=0:K=0:TM=0:KK=0   :A=0:SU=0:V=0:VV=0:NS=0:I=0:J=0:D=0
  8. 80 SS=0:DAY=0:P$(1)="OK"
  9. 90 DIM DA$(64),A(50,64),SN$(50)
  10. 100 PRINT"[147]      [210][197][195][207][210][196] [210][197][208][207][210][212][197][210]
  11. 110 [153]"    PRESS A LETTER . . .
  12. 120 PRINT"      A.  HOMEWORK FILE
  13. 130 [153]"      B.  ATTENDANCE FILE
  14. 135 PRINT"      C.  TERMINATE RUN
  15. 140 GS$[178]"ABC":[141]9000:[139]V[178]3[167][128]
  16. 145 [153]"      CHOICE WAS "G$:VV[178]V
  17. 150 [153]"ENTER NAME OF FILE";
  18. 160 [133]"*CMDCMDCMD";F$:[139]F$[178]"*"[167]100
  19. 170 F$[178][200](F$,15)
  20. 180 [153]"VERIFY NAME: "F$"WAIT: YWAIT/N"
  21. 190 GS$[178]"YN":[141]9000:[139]V[178]2[167]150
  22. 200 [159]7,8,7,"0:N"[170]F$[170]",S,R"
  23. 220 [141]10000:[139]A[178]62[167][160]7:[137]150
  24. 230 [161]#7,NS$:NS[178][198](NS$[170]Z$)
  25. 240 [139]NS[178]0[167][160]7:[153]"BAD FILE":[137]150
  26. 250 [129]I[178]1[164]NS:[132]7,SN$(I):[130]I
  27. 260 [160]7
  28. 270 [139]VV[178]1[167]G$[178]"0:H"[170]F$[170]",S,R"           :T$[178]"HOMEWORK":P$(0)[178]"NO PAPERWAIT"
  29. 280 [139]VV[178]2[167]G$[178]"0:A"[170]F$[170]",S,R"           :T$[178]"ATTENDANCE":P$(0)[178]"ABSENTWAIT"
  30. 300 [153]"LOAD"T$" RECORDS FOR "F$
  31. 310 [153]"      LOADING DATA--PLEASE STAND BY
  32. 320 OPEN8,8,8,G$:GOSUB10000                :IFA=62THENCLOSE8:GOSUB8990
  33. 330 FORI=1TONS:FORJ=0TO7:GET#8,A$:A(I,J)=ASC(A$+Z$):NEXTJ:NEXTI
  34. 340 GET#8,D$:D=ASC(D$+Z$)
  35. 350 FORI=1TOD:INPUT#8,DA$(I):NEXTI:D=D-1
  36. 360 CLOSE8
  37. 400 PRINT"[147]"T$" RECORDS FOR "F$
  38. 410 PRINT" DO IT BY S[146]TUDENT
  39. 420 [153]"    OR BY DWAITATE/ENTRY
  40. 425 PRINT"   OR GET A[146]NOTHER FILE
  41. 430 GS$[178]"SDA":[141]9000                    :[145]V[137]500,1000,100
  42. 500 [153]"LOAD"T$" RECORDS FOR "F$
  43. 505 [133]"NAME OF STUDENT  CMD *CMDCMDCMD";SS$
  44. 510 [139]SS$[178]"*"[167]400
  45. 520 [141]2000
  46. 530 [139]I[178]0[167]500
  47. 540 [141]700
  48. 550 PS[178]0:SU[178]0:N[178]0:[129]J[178]1[164]D
  49. 560 DAY[178]J
  50. 570 BYTE[178][181]((DAY[171]1)[173]8):TM[178]A(I,BYTE)
  51. 580 BIT[178]DAY[171]BYTE[172]8[171]1:TE[178]2[174]BIT
  52. 590 K[178](TM[175]TE)[173]TE:SU[178]SU[170]K
  53. 600 [153]DA$(J)"  "P$(K)[163]20);:PS[178]PS[170]1   :[139]PS[178]2[167]PS[178]0:[153]
  54. 610 N[178]N[170]1:[139]N[178]30[167]N[178]0                    :[141]8990:[141]700
  55. 615 [130]
  56. 620 [153]""SU"OUT OF"D                    :[141]8990:[137]500
  57. 700 [153]"LOAD"T$" RECORD OF "SN$(I)"
  58. 710 RETURN
  59. 1000 PRINT"[147]"T$" RECORDS FOR "F$
  60. 1005 INPUT"DESIRED ENTRY  [157] *[157][157][157]";SS$
  61. 1010 IFSS$="*"THEN400
  62. 1020 GOSUB2100
  63. 1030 IFI=0THEN1000
  64. 1040 DAY=I:SU=0
  65. 1050 BYTE=INT((DAY-1)/8)
  66. 1060 BIT=DAY-BYTE*8-1:TE=2^BIT
  67. 1065 GOSUB1200
  68. 1070 N=0:SU=0:FORKK=1TONS
  69. 1080 IFLEFT$(SN$(KK),4)="DROP"THEN1110
  70. 1090 TM=A(KK,BYTE):K=(TMANDTE)/TE:SU=SU+K
  71. 1100 PRINTSN$(KK)TAB(25)P$(K)
  72. 1105 N=N+1:IFN=15THENN=0                    :GOSUB8990:GOSUB1200
  73. 1110 NEXT
  74. 1120 PRINT""SU"OK":GOSUB8990
  75. 1130 GOTO400
  76. 1200 PRINT"[147]"T$" RECORD FOR "DA$(DAY)"
  77. 1210 [142]
  78. 2000 [143] STRING SEARCH--NAMES
  79. 2010 SS[178][195](SS$):[129]I[178]1[164]NS
  80. 2020 [129]J[178]1[164]([195](SN$(I))[171]SS[170]1)
  81. 2030 [139] SS$[178][202](SN$(I),J,SS)[167][142]
  82. 2040 [130]J:[130]I:I[178]0:[142]
  83. 2100 [143] STRING SEARCH--DATES
  84. 2110 SS[178][195](SS$):[129]I[178]1[164]D
  85. 2120 [129]J[178]1[164]([195](DA$(I))[171]SS[170]1)
  86. 2130 [139] SS$[178][202](DA$(I),J,SS)[167][142]
  87. 2140 [130]J:[130]I:I[178]0:[142]
  88. 8990 [153]"PRESS RETURNWAIT TO CONTINUE":GS$[178][199](13)
  89. 9000 [161]G$:[129]V[178]1[164][195](GS$):[139]G$[178][202](GS$,V,1)[167][142]
  90. 9010 [130]V:[137]9000
  91. 10000 [132]15,A,A$:[139]A[179][178]1[167][142]
  92. 10010 [153]A$:[139]A[178]62[176]A[178]63[167][142]
  93. 10020 [144]
  94.